home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G22F / G22_HAYA.Dxr / 00102.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  2.7 KB  |  143 lines
  1. global i, g_no, jumplistkey
  2.  
  3. on startMovie
  4.   set mycursor to [1, 2]
  5.   repeat with i = 11 to 19
  6.     set the cursor of sprite i to mycursor
  7.   end repeat
  8.   set jumplistkey to ["G1", "G2", "G3", "G4", "G5", "G6", "G7"]
  9.   set volset to the soundLevel
  10.   if the soundEnabled = 0 then
  11.     set the soundEnabled to 1
  12.   end if
  13. end
  14.  
  15. on donext
  16.   if (g_no + 1) = 8 then
  17.     set g_no to 0
  18.   end if
  19.   go(getAt(jumplistkey, g_no + 1))
  20. end
  21.  
  22. on doback
  23.   if (g_no - 1) = 0 then
  24.     set g_no to 8
  25.   end if
  26.   go(getAt(jumplistkey, g_no - 1))
  27. end
  28.  
  29. on doexit
  30.   sound stop 1
  31.   go("M4", "@::JMACMENU")
  32. end
  33.  
  34. on crtopen
  35.   puppetSprite(6, 1)
  36.   repeat while the stillDown
  37.     set the memberNum of sprite 6 to 11
  38.     updateStage()
  39.   end repeat
  40.   set the memberNum of sprite 6 to 10
  41.   updateStage()
  42.   puppetSprite(6, 0)
  43. end
  44.  
  45. on crtclose
  46.   puppetSprite(7, 1)
  47.   repeat while the stillDown
  48.     set the memberNum of sprite 7 to 13
  49.     updateStage()
  50.   end repeat
  51.   set the memberNum of sprite 7 to 12
  52.   updateStage()
  53.   puppetSprite(7, 0)
  54. end
  55.  
  56. on crtback
  57.   puppetSprite(21, 1)
  58.   repeat while the stillDown
  59.     set the memberNum of sprite 21 to 24
  60.     updateStage()
  61.   end repeat
  62.   set the memberNum of sprite 21 to 23
  63.   updateStage()
  64.   puppetSprite(21, 0)
  65. end
  66.  
  67. on crtnext
  68.   puppetSprite(20, 1)
  69.   repeat while the stillDown
  70.     set the memberNum of sprite 20 to 22
  71.     updateStage()
  72.   end repeat
  73.   set the memberNum of sprite 20 to 21
  74.   updateStage()
  75.   puppetSprite(20, 0)
  76. end
  77.  
  78. on crtclose2
  79.   puppetSprite(22, 1)
  80.   repeat while the stillDown
  81.     set the memberNum of sprite 22 to 26
  82.     updateStage()
  83.   end repeat
  84.   set the memberNum of sprite 22 to 25
  85.   updateStage()
  86.   puppetSprite(22, 0)
  87. end
  88.  
  89. on crtraiyer
  90.   puppetSprite(23, 1)
  91.   repeat while the stillDown
  92.     set the memberNum of sprite 23 to 35
  93.     updateStage()
  94.   end repeat
  95.   set the memberNum of sprite 23 to 34
  96.   updateStage()
  97.   puppetSprite(23, 0)
  98. end
  99.  
  100. on crtharu
  101.   puppetSprite(24, 1)
  102.   repeat while the stillDown
  103.     set the memberNum of sprite 24 to 37
  104.     updateStage()
  105.   end repeat
  106.   set the memberNum of sprite 24 to 36
  107.   updateStage()
  108.   puppetSprite(24, 0)
  109. end
  110.  
  111. on crtnatu
  112.   puppetSprite(25, 1)
  113.   repeat while the stillDown
  114.     set the memberNum of sprite 25 to 39
  115.     updateStage()
  116.   end repeat
  117.   set the memberNum of sprite 25 to 38
  118.   updateStage()
  119.   puppetSprite(25, 0)
  120. end
  121.  
  122. on crtaki
  123.   puppetSprite(26, 1)
  124.   repeat while the stillDown
  125.     set the memberNum of sprite 26 to 41
  126.     updateStage()
  127.   end repeat
  128.   set the memberNum of sprite 26 to 40
  129.   updateStage()
  130.   puppetSprite(26, 0)
  131. end
  132.  
  133. on crtfuyu
  134.   puppetSprite(27, 1)
  135.   repeat while the stillDown
  136.     set the memberNum of sprite 27 to 43
  137.     updateStage()
  138.   end repeat
  139.   set the memberNum of sprite 27 to 42
  140.   updateStage()
  141.   puppetSprite(27, 0)
  142. end
  143.